
option explicit


public sub DetalleValores_VUI_OnHtmlRefresh(byval sNameUI)
	dim sHtml
	dim oObject
	dim oRemito 

	' obtengo el objeto del que habla la UI
	if ( sNameUI = sSTANDAR_UI ) then
		set oObject = oApp.oUIs.Item(sNameUI).oViewUI.oObjectSelected
	else
		set oObject = oApp.oUIs.Item(sNameUI).oObject
	end if	

	' verifico haber obtenido un objeto
	if not oObject is nothing then		
		' armo la factura
		set oRemito = new CDetalleValores
		set oRemito.oObject = oObject
		
		' asigno el html
		oApp.oUIs.Item(sNameUI).oViewUI.SetHtmlText oRemito.sHtml()
	else
		call base_VUI_OnHtmlRefresh(sNameUI)
	end if

end sub